<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/fundacaologosofica/include/conexao.asp"-->
<%


if trim(request("tipoacao"))<>"" then
				tipoacao =request("tipoacao")
				Response.Write("<option value=''>Selecione - Conjunto</option>")
				
		query="select Codigo,nome from  Conjunto where Codigo in("&_
						" select distinct (Conjunto.CodigoConjuntoPai) from  Frequencia"&_
						" inner join Conjunto on Frequencia.Codigo=Conjunto.CodigoConjuntoPai"&_
						" where CodigoUnidade ="&session("usr_fundacaol_unidade_docente")&" AND Ano ="&request("ano")&" AND Tabela='"&tipoacao&"')"

				set objteste=Conn.execute(query)
				while not objteste.eof	
					Response.Write("<option value='"&objteste("codigo")&"'>"&objteste("nome")&"</option>")	
					objteste.movenext
				wend
				'pronto

end if

%>